home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LaserPrtHC.cpt / LP for QPS demo / card_19225.txt < prev    next >
Text File  |  1990-03-26  |  2KB  |  89 lines
  1. -- card: 19225 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2562
  5. -- name: Name Cardsp
  6.  
  7.  
  8. -- part contents for background part 8
  9. ----- text -----
  10. %1
  11. %2
  12. %3
  13. % One Name Card ¬© 1987 Kanode Associates
  14. % AutoSize routine ¬© 1987,1988 by Greg Kruckewitt
  15. % Variables 
  16. /LM 0 def
  17. /RM 780 def
  18. /max 660 def % maximum width of text allowed for this card
  19.  
  20. % New Autosize routine
  21. /fitstring
  22. {  /str exch def
  23.   /size exch def
  24. /Fname exch def
  25. Fname findfont size scalefont setfont
  26. str stringwidth pop /nsize exch def
  27. % only size DOWN if stringsize is GREATER than max
  28. nsize max gt 
  29. {
  30. max nsize div size mul  /nsize exch def
  31. Fname findfont nsize scalefont setfont
  32. str dup stringwidth pop  
  33. /sw exch def} if  % /sw = string width for testing
  34. } def
  35.  
  36.  
  37. %------------------END OF HEADER---------------------%
  38.  
  39. %Rotate & Translate
  40. 90 rotate
  41. 0 -572 translate
  42.  
  43. /fourpops
  44. {4{pop} repeat} def
  45.  
  46. %Draw Boxes
  47. 35 8 moveto
  48.  35 235 756 235 18 arcto fourpops
  49.  756 235 756 -10 18 arcto fourpops
  50.  756 -10 25 -10 18 arcto fourpops
  51.  35 -10 35 235 18 arcto fourpops
  52.  
  53.  5 setlinewidth
  54.  1 setlinejoin
  55.  stroke
  56.  
  57.  
  58.  45 18 moveto
  59.  45 225 746 215 18 arcto fourpops
  60.  746 225 746 0 18 arcto fourpops
  61. 746 0 45 0 18 arcto fourpops
  62. 45 0 45 225 18 arcto fourpops
  63.  
  64.  
  65.  1 setlinewidth
  66.  1 setlinejoin
  67.  stroke
  68.  
  69. %NameFont % set the default font usually done in autofit
  70.  
  71. FontName 96 Name fitstring
  72. RM LM sub  %center the name
  73. Name stringwidth pop sub
  74. 2 div
  75. 120 moveto
  76.  
  77. Name show
  78.  
  79. % set the default title font & size it
  80. %TitleFont 
  81.  
  82. TitleFontName  64 Title fitstring
  83. RM LM sub %center the title
  84. Title stringwidth pop sub
  85. 2 div
  86. 23 moveto
  87. Title show
  88. showpage
  89. %grestore